home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmis.dir / Internal_5_InitGmObjectOnExitFrameChooseFrame.ls < prev    next >
Encoding:
Text File  |  2001-09-10  |  296 b   |  15 lines
  1. global gmObject, sessionObject
  2.  
  3. on exitFrame me
  4.   gmObject = 0
  5.   v = (the movieName).char[3..4]
  6.   gmObject = new(script(v & "Script"))
  7.   xFrame = integer(the frameLabel)
  8.   v = xFrame + 1
  9.   if v = 5 then
  10.     v = 1
  11.   end if
  12.   sessionObject.upCountGmMovie(v)
  13.   go(string(gmObject.xFrame) & "1")
  14. end
  15.